home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / minix / up1510b.tgz / up1510b / src / commands / sh / sh5.c.D < prev    next >
Text File  |  1990-07-25  |  9KB  |  435 lines
  1. *** /tmp/,RCSt1022169    Wed Jul 25 13:44:42 1990
  2. --- sh5.c    Thu Jul 12 01:03:31 1990
  3. ***************
  4. *** 1,5 ****
  5.   #define Extern extern
  6. ! #include "signal.h"
  7. ! #include "errno.h"
  8. ! #include "setjmp.h"
  9.   #include "sh.h"
  10. --- 1,6 ----
  11.   #define Extern extern
  12. ! #include <sys/types.h>
  13. ! #include <signal.h>
  14. ! #include <errno.h>
  15. ! #include <setjmp.h>
  16.   #include "sh.h"
  17. ***************
  18. *** 13,15 ****
  19. --- 14,21 ----
  20.   
  21. + static struct iobuf sharedbuf = {AFID_NOBUF};
  22. + static struct iobuf mainbuf = {AFID_NOBUF};
  23. + static unsigned bufid = AFID_ID;    /* buffer id counter */
  24.   
  25. + struct ioarg temparg = {0, 0, 0, AFID_NOBUF, 0};
  26. + 
  27.   int
  28. ***************
  29. *** 28,30 ****
  30.       c = readc();
  31. !     if (ec != '\'') {
  32.           if(c == '\\') {
  33. --- 34,36 ----
  34.       c = readc();
  35. !      if (ec != '\'' && ec != '`' && e.iop->task != XGRAVE) {
  36.           if(c == '\\') {
  37. ***************
  38. *** 47,48 ****
  39. --- 53,61 ----
  40.   int
  41. + eofc()
  42. + 
  43. + {
  44. +   return e.iop < e.iobase || (e.iop->peekc == 0 && e.iop->prev == 0);
  45. + }
  46. + 
  47. + int
  48.   readc()
  49. ***************
  50. *** 50,52 ****
  51.       register c;
  52. -     static int eofc;
  53.   
  54. --- 63,64 ----
  55. ***************
  56. *** 56,68 ****
  57.               return(c);
  58. -         } else if ((c = (*e.iop->iofn)(&e.iop->arg, e.iop)) != '\0') {
  59. -             if (c == -1) {
  60. -                 e.iop++;
  61. -                 continue;
  62. -             }
  63. -             if (e.iop == iostack)
  64. -                 ioecho(c);
  65. -             return(c);
  66.           }
  67. !     if (e.iop >= iostack ||
  68. !         multiline && eofc++ < 3)
  69.           return(0);
  70. --- 68,96 ----
  71.               return(c);
  72.           }
  73. !         else {
  74. !             if (e.iop->prev != 0) {
  75. !                 if ((c = (*e.iop->iofn)(e.iop->argp, e.iop)) != '\0') {
  76. !                     if (c == -1) {
  77. !                         e.iop++;
  78. !                         continue;
  79. !                     }
  80. !                     if (e.iop == iostack)
  81. !                         ioecho(c);
  82. !                     return(e.iop->prev = c);
  83. !                 }
  84. !                 else if (e.iop->task == XIO && e.iop->prev != '\n') {
  85. !                     e.iop->prev = 0;
  86. !                 if (e.iop == iostack)
  87. !                     ioecho('\n');
  88. !                     return '\n';
  89. !                 }
  90. !             }
  91. !             if (e.iop->task == XIO) {
  92. !             if (multiline)
  93. !                 return e.iop->prev = 0;
  94. !             if (talking && e.iop == iostack+1)
  95. !                 prs(prompt->value);
  96. !             }
  97. !         }
  98. !     if (e.iop >= iostack)
  99.           return(0);
  100. ***************
  101. *** 81,84 ****
  102.   void
  103. ! pushio(arg, fn)
  104. ! struct ioarg arg;
  105.   int (*fn)();
  106. --- 109,112 ----
  107.   void
  108. ! pushio(argp, fn)
  109. ! struct ioarg *argp;
  110.   int (*fn)();
  111. ***************
  112. *** 92,94 ****
  113.       e.iop->iofn = fn;
  114. !     e.iop->arg = arg;
  115.       e.iop->peekc = 0;
  116. --- 120,138 ----
  117.       e.iop->iofn = fn;
  118. ! 
  119. !     if (argp->afid != AFID_NOBUF)
  120. !       e.iop->argp = argp;
  121. !     else {
  122. !       e.iop->argp  = ioargstack + (e.iop - iostack);
  123. !       *e.iop->argp = *argp;
  124. !       e.iop->argp->afbuf = e.iop == &iostack[0] ? &mainbuf : &sharedbuf;
  125. !       if (isatty(e.iop->argp->afile) == 0 &&
  126. !           (e.iop == &iostack[0] ||
  127. !            lseek(e.iop->argp->afile, 0L, 1) != -1)) {
  128. !         if (++bufid == AFID_NOBUF)
  129. !           bufid = AFID_ID;
  130. !         e.iop->argp->afid  = bufid;
  131. !       }
  132. !     }
  133. ! 
  134. !     e.iop->prev  = ~'\n';
  135.       e.iop->peekc = 0;
  136. ***************
  137. *** 96,98 ****
  138.       e.iop->nlcount = 0;
  139. !     if (fn == filechar || fn == linechar || fn == nextchar)
  140.           e.iop->task = XIO;
  141. --- 140,142 ----
  142.       e.iop->nlcount = 0;
  143. !     if (fn == filechar || fn == linechar)
  144.           e.iop->task = XIO;
  145. ***************
  146. *** 164,166 ****
  147.    */
  148. ! static    int    xxchar(), qqchar();
  149.   
  150. --- 208,210 ----
  151.    */
  152. ! static    int    xxchar();
  153.   
  154. ***************
  155. *** 173,175 ****
  156.       if ((wp = *ap->awordlist++) != NULL) {
  157. !         PUSHIO(aword, wp, *ap->awordlist == NULL? qqchar: xxchar);
  158.           return(-1);
  159. --- 217,219 ----
  160.       if ((wp = *ap->awordlist++) != NULL) {
  161. !         PUSHIO(aword, wp, *ap->awordlist == NULL? strchar: xxchar);
  162.           return(-1);
  163. ***************
  164. *** 194,197 ****
  165.   
  166. ! static int
  167. ! qqchar(ap)
  168.   register struct ioarg *ap;
  169. --- 238,244 ----
  170.   
  171. ! /*
  172. !  * Produce the characters from a single word (string).
  173. !  */
  174. ! int
  175. ! strchar(ap)
  176.   register struct ioarg *ap;
  177. ***************
  178. *** 200,202 ****
  179.   
  180. !     if (ap->aword == NULL || (c = *ap->aword++) == '\0')
  181.           return(0);
  182. --- 247,249 ----
  183.   
  184. !     if (ap->aword == NULL || (c = *ap->aword++) == 0)
  185.           return(0);
  186. ***************
  187. *** 206,208 ****
  188.   /*
  189. !  * Produce the characters from a single word (string).
  190.    */
  191. --- 253,255 ----
  192.   /*
  193. !  * Produce quoted characters from a single word (string).
  194.    */
  195. ***************
  196. *** 209,211 ****
  197.   int
  198. ! strchar(ap)
  199.   register struct ioarg *ap;
  200. --- 256,258 ----
  201.   int
  202. ! qstrchar(ap)
  203.   register struct ioarg *ap;
  204. ***************
  205. *** 214,218 ****
  206.   
  207. !     if (ap->aword == 0 || (c = *ap->aword++) == 0)
  208.           return(0);
  209. !     return(c);
  210.   }
  211. --- 261,265 ----
  212.   
  213. !     if (ap->aword == NULL || (c = *ap->aword++) == 0)
  214.           return(0);
  215. !     return(c|QUOTE);
  216.   }
  217. ***************
  218. *** 228,229 ****
  219. --- 275,277 ----
  220.       char c;
  221. +     struct iobuf *bp = ap->afbuf;
  222.       extern int errno;
  223. ***************
  224. *** 230,231 ****
  225. --- 278,297 ----
  226.   
  227. +     if (ap->afid != AFID_NOBUF) {
  228. +       if ((i = ap->afid != bp->id) || bp->bufp == bp->ebufp) {
  229. +         if (i)
  230. +           lseek(ap->afile, ap->afpos, 0);
  231. +         do {
  232. +           i = read(ap->afile, bp->buf, sizeof(bp->buf));
  233. +         } while (i < 0 && errno == EINTR);
  234. +         if (i <= 0) {
  235. +           closef(ap->afile);
  236. +           return 0;
  237. +         }
  238. +         bp->id = ap->afid;
  239. +         bp->ebufp = (bp->bufp  = bp->buf) + i;
  240. +       }
  241. +       ap->afpos++;
  242. +       return *bp->bufp++ & 0177;
  243. +     }
  244. + 
  245.       do {
  246. ***************
  247. *** 315,333 ****
  248.   
  249. - /*
  250. -  * Return the next character from the command source,
  251. -  * prompting when required.
  252. -  */
  253. - int
  254. - nextchar(ap)
  255. - register struct ioarg *ap;
  256. - {
  257. -     register int c;
  258. - 
  259. -     if ((c = filechar(ap)) != 0)
  260. -         return(c);
  261. -     if (talking && e.iop <= iostack+1)
  262. -         prs(prompt->value);
  263. -     return(0);
  264. - }
  265. - 
  266.   void
  267. --- 381,382 ----
  268. ***************
  269. *** 435,440 ****
  270.   
  271. ! static    char *readhere();
  272.   
  273. - #define    NCPB    100    /* here text block allocation unit */
  274. - 
  275.   markhere(s, iop)
  276. --- 484,487 ----
  277.   
  278. ! static    void readhere();
  279.   
  280.   markhere(s, iop)
  281. ***************
  282. *** 452,453 ****
  283. --- 499,501 ----
  284.       h->h_iop = iop;
  285. +     iop->io_name = 0;
  286.       h->h_next = NULL;
  287. ***************
  288. *** 472,483 ****
  289.   {
  290. !     register struct here *h;
  291.   
  292. !     for (h = inhere; h != NULL; h = inhere) {
  293. !         h->h_iop->io_name = readhere(h->h_tag, h->h_dosub? 0: '\'');
  294. !         /* relink from inhere to acthere list */
  295. !         inhere = h->h_next;
  296. !         h->h_next = acthere;
  297. !         acthere = h;
  298.       }
  299. -     inhere = h;
  300.   }
  301. --- 520,533 ----
  302.   {
  303. !     register struct here *h, *hp;
  304.   
  305. !     /* Scan here files first leaving inhere list in place */
  306. !     for (hp = h = inhere; h != NULL; hp = h, h = h->h_next)
  307. !       readhere(&h->h_iop->io_name, h->h_tag, h->h_dosub? 0: '\'');
  308. ! 
  309. !     /* Make inhere list active - keep list intact for scraphere */
  310. !     if (hp != NULL) {
  311. !       hp->h_next = acthere;
  312. !       acthere    = inhere;
  313. !       inhere     = NULL;
  314.       }
  315.   }
  316. ***************
  317. *** 484,487 ****
  318.   
  319. ! static char *
  320. ! readhere(s, ec)
  321.   register char *s;
  322. --- 534,538 ----
  323.   
  324. ! static void
  325. ! readhere(name, s, ec)
  326. ! char **name;
  327.   register char *s;
  328. ***************
  329. *** 496,497 ****
  330. --- 547,549 ----
  331.       tempname(tname);
  332. +     *name = strsave(tname, areanum);
  333.       tf = creat(tname, 0600);
  334. ***************
  335. *** 498,532 ****
  336.       if (tf < 0)
  337. !         return (0);
  338.       if (newenv(setjmp(errpt = ev)) != 0)
  339. !         return (0);
  340. !     if (e.iop == iostack && e.iop->iofn == filechar) {
  341. !         pushio(e.iop->arg, filechar);
  342.           e.iobase = e.iop;
  343. !     }
  344. !     for (;;) {
  345. !         if (talking && e.iop <= iostack)
  346. !             prs(cprompt->value);
  347. !         next = line;
  348. !         while ((c = getc(ec)) != '\n' && c) {
  349. !             if (ec == '\'')
  350. !                 c &= ~ QUOTE;
  351. !             if (next >= &line[LINELIM]) {
  352. !                 c = 0;
  353. !                 break;
  354.               }
  355. !             *next++ = c;
  356.           }
  357. !         *next = 0;
  358. !         if (strcmp(s, line) == 0 || c == 0)
  359. !             break;
  360. !         *next++ = '\n';
  361. !         write (tf, line, (int)(next-line));
  362.       }
  363. -     if (c == 0) {
  364. -         prs("here document `"); prs(s); err("' unclosed");
  365. -     }
  366.       close(tf);
  367. -     quitenv();
  368. -     /* correct area? */
  369. -     return (strsave(tname, areanum));
  370.   }
  371. --- 550,582 ----
  372.       if (tf < 0)
  373. !         return;
  374.       if (newenv(setjmp(errpt = ev)) != 0)
  375. !         unlink(tname);
  376. !     else {
  377. !         pushio(e.iop->argp, e.iop->iofn);
  378.           e.iobase = e.iop;
  379. !         for (;;) {
  380. !             if (talking && e.iop <= iostack)
  381. !                 prs(cprompt->value);
  382. !             next = line;
  383. !             while ((c = getc(ec)) != '\n' && c) {
  384. !                 if (ec == '\'')
  385. !                     c &= ~ QUOTE;
  386. !                 if (next >= &line[LINELIM]) {
  387. !